home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _SQLite_FetchNames.au3 < prev    next >
Text File  |  2007-09-08  |  1KB  |  26 lines
  1. #include <SQLite.au3>
  2. #include <SQLite.dll.au3>
  3.  
  4. Local $hQuery, $aRow, $aNames
  5. _SQLite_Startup ()
  6. _SQLite_Open () ; open :memory: Database
  7. _SQLite_Exec (-1, "CREATE TABLE aTest (a,b,c);")
  8. _SQLite_Exec (-1, "INSERT INTO aTest(a,b,c) VALUES ('c','2','World');")
  9. _SQLite_Exec (-1, "INSERT INTO aTest(a,b,c) VALUES ('b','3',' ');")
  10. _SQLite_Exec (-1, "INSERT INTO aTest(a,b,c) VALUES ('a','1','Hello');")
  11. _SQlite_Query (-1, "SELECT ROWID,* FROM aTest ORDER BY a;", $hQuery)
  12. _SQLite_FetchNames ($hQuery, $aNames) ; Read out Column Names
  13. ConsoleWrite(StringFormat(" %-10s  %-10s  %-10s  %-10s ", $aNames[0], $aNames[1], $aNames[2], $aNames[3]) & @CR)
  14. While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK 
  15.     ConsoleWrite(StringFormat(" %-10s  %-10s  %-10s  %-10s ", $aRow[0], $aRow[1], $aRow[2], $aRow[3]) & @CR)
  16. WEnd
  17. _SQLite_Exec (-1, "DROP TABLE aTest;")
  18. _SQLite_Close ()
  19. _SQLite_Shutdown ()
  20.  
  21. ;~ Output:
  22. ;~  
  23. ;~  rowid       a           b           c          
  24. ;~  3           a           1           Hello      
  25. ;~  2           b           3                      
  26. ;~  1           c           2           World